1 REM SLOT MACHINE 2 X=RND(-TI) 3 PRINT "[147][144]":POKE53281,6:POKE53280,0 5 DIM A(20) 6 GOSUB 5000 REM INIT DISP 10 T=0 20 PRINT "":FOR W=1 TO 15:PRINT:NEXT 22 PRINT" TO DEPSOSIT COIN TO END" 23 POKE198,0:WAIT198,1:GETZ$:IFZ$=CHR$(13)THEN63000 24 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157] " 25 PRINT "":FOR W=1 TO 15:PRINT:NEXT 26 PRINT " "; 27 PRINT " " 28 PRINT "":FOR W=1 TO 16:PRINT:NEXT 29 POKE V+21,0 30 RESTORE 40 DATA 4,1,2,6,5,2,1,3,5,1,3,4,2,1,1,3,5,3,6,5 50 DATA 3,2,5,6,3,2,5,3,4,2,5,4,3,2,5,3,6,2,4,5 60 DATA 6,1,4,3,5,4,3,6,3,4,3,1,5,3,4,1,6,4,3,5 80 GOSUB 2000:X=M:W=M 90 GOSUB 2000:Y=M 100 GOSUB 2000:Z=M 120 GOSUB 2500:REM DISP 1ST 125 FOR RJ=1 TO 500:NEXT RJ 130 GOSUB 2600:REM DISP 2ND 135 FOR RJ=1 TO 500:NEXT RJ 140 GOSUB 2700:REM DISP 3RD 150 ON X GOTO 1000,200,300,400,500,600 200 ON Y GOTO 280,220,280,280,280,280 220 ON Z GOTO 240,260,240,240,240,240 240 P=5:GOTO 700 260 P=10:GOTO 700 280 P=2: GOTO 700 300 ON Y GOTO 1000,1000,320,1000,1000,1000 320 ON Z GOTO 1000,1000,260,1000,1000,260 400 ON Y GOTO 1000,1000,1000,420,1000,1000 420 ON Z GOTO 1000,1000,1000,440,1000,440 440 P=14:GOTO 700 500 ON Y GOTO 1000,1000,1000,1000,520,1000 520 ON Z GOTO 1000,1000,1000,1000,540,540 540 P=18:GOTO 700 600 ON Y GOTO 1000,1000,1000,1000,1000,620 620 ON Z GOTO 1000,1000,1000,1000,1000,640 640 P=100:GOTO 700 700 PRINT:PRINT: PRINT"YOU WIN*** ";P 720 T=T+P:GOTO 1100 1000 PRINT:PRINT: PRINT"SORRY, YOU LOSE " 1100 T=T-1:PRINT:PRINT:PRINT"YOUR SCORE IS ";" [157][157][157][157]";T;" ":GOTO 20 1400 REM NAME SUBROUTINE 1990 REM SPIN SUBROUTINE 2000 FOR I=1 TO 20 2010 READ A(I):NEXT I 2100 N=INT(RND(1)*20)+1:M=A(N) 2200 RETURN 2450 REM DISPLAY SUBROUTINE 2500 POKE 2040,X+12:REM SET 0 POINTER 2505 ON X GOTO 2570,2520,2580,2540,2570,2510:REM COLOR 2510 POKE V+39,0:GOTO 2590 2520 POKE V+39,2:GOTO 2590 2530 POKE V+39,3:GOTO 2590 2540 POKE V+39,4:GOTO 2590 2570 POKE V+39,7:GOTO 2590 2580 POKE V+39,8:GOTO 2590 2590 POKE V+21,1:RETURN 2600 POKE 2041,Y+12:REM SET 1 POINTER 2605 ON Y GOTO 2670,2620,2680,2640,2670,2610:REM COLOR 2610 POKE V+40,0:GOTO 2690 2620 POKE V+40,2:GOTO 2690 2630 POKE V+40,3:GOTO 2690 2640 POKE V+40,4:GOTO 2690 2670 POKE V+40,7:GOTO 2690 2680 POKE V+40,8:GOTO 2690 2690 POKE V+21,3:RETURN 2700 POKE 2042,Z+12:REM SET 2 POINTER 2705 ON Z GOTO 2770,2720,2780,2740,2770,2710:REM COLOR 2710 POKE V+41,0:GOTO 2790 2720 POKE V+41,2:GOTO 2790 2730 POKE V+41,3:GOTO 2790 2740 POKE V+41,4:GOTO 2790 2770 POKE V+41,7:GOTO 2790 2780 POKE V+41,8:GOTO 2790 2790 POKE V+21,7:RETURN 2800 RETURN 3000 REM LEMON 3001 DATA 0,0,0,0,0,0,0,0,0 3002 DATA 0,0,0,0,0,0,0,0,0 3003 DATA 0,60,0,0,255,0,3,255,192 3004 DATA 7,255,224,15,255,240,7,255,224 3005 DATA 3,255,192,0,255,0,0,60,0 3006 DATA 0,0,0,0,0,0,0,0,0 3007 DATA 0,0,0,0,0,0,0,0,0 3010 REM CHERRY 3011 DATA 0,0,0,0,0,0,0,0,0 3012 DATA 0,3,0,0,7,128,0,15,192 3013 DATA 0,31,224,1,143,192,3,199,128 3014 DATA 7,227,0,15,255,252,7,227,0 3015 DATA 3,199,128,1,143,192,0,31,224 3016 DATA 0,15,192,0,7,128,0,3,0 3017 DATA 0,0,0,0,0,0,0,0,0 3020 REM ORANGE 3021 DATA 0,0,0,0,0,0,0,0,0 3022 DATA 0,126,0,0,255,0,1,255,128 3023 DATA 3,255,192,3,255,192,7,255,224 3024 DATA 7,255,224,7,255,224,7,255,224 3025 DATA 3,255,192,3,255,192,1,255,128 3026 DATA 0,255,0,0,126,0,0,0,0 3027 DATA 0,0,0,0,0,0,0,0,0 3030 REM PLUM 3031 DATA 0,0,0,0,0,0,0,0,0 3032 DATA 0,00,0,0,60,0,0,126,0 3033 DATA 0,126,0,0,255,0,0,255,0 3034 DATA 1,255,128,1,255,128,1,255,128 3035 DATA 0,255,0,0,255,0,0,126,0 3036 DATA 0,126,0,0,60,0,0,00,0 3037 DATA 0,0,0,0,0,0,0,0,0 3040 REM BELL 3041 DATA 0,0,0,0,0,0,0,0,0 3042 DATA 0,0,0,0,8,0,0,62,0 3043 DATA 0,127,0,0,127,0,0,127,0 3044 DATA 0,127,0,0,255,128,0,255,128 3045 DATA 1,255,192,1,255,192,3,255,224 3046 DATA 7,255,240,15,255,248,15,255,248 3047 DATA 15,255,248,0,0,0,0,0,0 3050 REM BAR 3051 DATA 0,0,0,0,0,0,0,0,0 3052 DATA 0,0,0,0,0,0,0,0,0 3053 DATA 31,255,248,24,66,24,27,90,216 3054 DATA 27,90,216,24,66,24,27,90,216 3055 DATA 27,90,232,24,90,232,31,255,248 3056 DATA 0,0,0,0,0,0,0,0,0 3057 DATA 0,0,0,0,0,0,0,0,0 5000 GOSUB 6000 5003 FOR M=1 TO 60:READ D:NEXT 5005 V=53248 5010 FOR M=0 TO 62:READ D:POKE 832+M,D:NEXT M:REM LEMON 5020 FOR M=O TO 62:READ D:POKE 896+M,D:NEXT M:REM CHERRY 5030 FOR M=0 TO 62:READ D:POKE 960+M,D:NEXT M:REM ORANGE 5040 FOR M=0 TO 62:READ D:POKE 1024+M,D:NEXT M:REM PLUM 5050 FOR M=0 TO 62:READ D:POKE 1088+M,D:NEXT M:REM BELL 5060 FOR M=0 TO 62:READ D:POKE 1152+M,D:NEXT M:REM BAR 5070 POKE V+23,7:POKE V+29,7:REM EXPAND 5080 POKE V,100:POKE V+1, 100:REM 1ST POSIT 5090 POKE V+2,150:POKE V+3, 100:REM 2ND POS 5100 POKE V+4,200:POKE V+5, 100:REM 3RD POS 5110 RETURN 6000 E=1024:F=55296 6002 FOR G=207 TO 447 STEP 40 6004 FOR H=0 TO 23 6006 POKE E+G+H,160:POKE F+G+H,1 6008 NEXT H 6010 NEXT G 6012 RETURN 6064 FOR H=0 TO 23 6066 POKE E+G+H,102:POKE F+G+H,1 10000 V=53248 10001 PRINT"[147]" 10005 INPUT "COLOR";C 10006 POKE V+41,C 10010 POKE V+23,4:POKE V+29,4 10011 POKE V+21,4 10012 POKE 2042,13 10030 FOR X=0 TO 200 10040 POKE V+4,X 10041 POKE V+5,X 10060 NEXT X 10070 GOTO10030 10500 RESTORE 10510 FOR I=1 TO 60:READ D:NEXT I 10520 STOP 10600 FOR I=0 TO 62:READ Q:POKE 832+I,Q 10610 NEXT I 10620 STOP 10630 FOR I=0 TO 62:READ Q:POKE 832+I,Q 10640 NEXT I 10650 STOP 10660 FOR I=0 TO 62:READ Q:POKE 832+I,Q 10670 NEXT I 10680 STOP 10690 FOR I=0 TO 62:READ Q:POKE 832+I,Q 10700 NEXT I 10710 STOP 10720 FOR I=0 TO 62:READ Q:POKE 832+I,Q 10730 NEXT I 10740 STOP 10750 FOR I=0 TO 62:READ Q:POKE 832+I,Q 10760 NEXT I 10770 STOP 63000 POKEV+21,0:PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN" 63002 POKE631,13:POKE632,13:POKE198,2